﻿Public Class PasswordCheck

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If PWEntry.Text = TextBox1.Text Then
            MsgBox("Correcto!!!")

            AppSettings.Hide()
            AppSettings.Show()
            Me.Close()

        Else : MsgBox("Incorrect password, Try again dude.")

        End If

    End Sub

    Private Sub PasswordCheck_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TextBox1.Text = My.Settings.AdminPass

    End Sub
End Class